home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / KnockOffTest2.AMOS / KnockOffTest2.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1997-10-04  |  2.0 KB  |  76 lines
  1. Screen Open 0,320,256,4,0
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  3. Get Sprite Palette 
  4. Make Mask 
  5. For A=1 To 15 : Colour A+16,Colour(A) : Next 
  6. Palette 0,$888,$F
  7. RESOL=64
  8. Dim X(1),Y(1),XSP(1),YSP(1),DI(1)
  9. DREHWIN=64
  10.  
  11. X(0)=20*RESOL : Y(0)=128*RESOL
  12. XSP(0)=100 : YSP(0)=0
  13. X(1)=120*RESOL : Y(1)=128*RESOL
  14. XSP(1)=0 : YSP(1)=0
  15. Gosub CRASHIT
  16.  
  17. X(0)=20*RESOL : Y(0)=128*RESOL
  18. XSP(0)=40 : YSP(0)=0
  19. X(1)=220*RESOL : Y(1)=128*RESOL
  20. XSP(1)=-70 : YSP(1)=0
  21. Gosub CRASHIT
  22.  
  23. X(0)=50*RESOL : Y(0)=128*RESOL
  24. XSP(0)=40 : YSP(0)=0
  25. X(1)=20*RESOL : Y(1)=128*RESOL
  26. XSP(1)=70 : YSP(1)=0
  27. Gosub CRASHIT
  28.  
  29. X(0)=40*RESOL : Y(0)=128*RESOL
  30. XSP(0)=60 : YSP(0)=0
  31. X(1)=100*RESOL : Y(1)=228*RESOL
  32. XSP(1)=0 : YSP(1)=-90
  33. Gosub CRASHIT
  34.  
  35. X(0)=40*RESOL : Y(0)=40*RESOL
  36. XSP(0)=80 : YSP(0)=80
  37. X(1)=240*RESOL : Y(1)=240*RESOL
  38. XSP(1)=-30 : YSP(1)=-30
  39. Gosub CRASHIT
  40.  
  41. X(0)=40*RESOL : Y(0)=40*RESOL
  42. XSP(0)=40 : YSP(0)=80
  43. X(1)=240*RESOL : Y(1)=240*RESOL
  44. XSP(1)=-80 : YSP(1)=-40
  45. Gosub CRASHIT
  46.  
  47. End 
  48. CRASHIT:
  49.   Sprite Off : Multi Wait 
  50.   CRASH=0 : TIMOUT=100
  51.   Repeat 
  52.     Multi Wait 
  53.     For C=0 To 1
  54.       Sprite C*2+2,X Hard(X(C)/RESOL),Y Hard(Y(C)/RESOL),DI(C)/2+1
  55.       Add X(C),XSP(C)
  56.       Add Y(C),YSP(C)
  57.       DI(C)= Extension_8_16C2(XSP(C),YSP(C))/16
  58.       If Sprite Col(2) and CRASH=0
  59.         CRASH=1
  60.         OXSP0=XSP(0) : OYSP0=YSP(0)
  61.         OXSP1=XSP(1) : OYSP1=YSP(1)
  62.         SPD0= Extension_8_1366((OXSP0*OXSP0+OYSP0*OYSP0)/16+((OXSP1*OXSP1+OYSP1*OYSP1)*9)/16)
  63.         NDIR0= Extension_8_16C2(OXSP0+OXSP1*3,OYSP0+OYSP1*3)
  64.         XSP(0)= Extension_8_1114(NDIR0,SPD0)
  65.         YSP(0)= Extension_8_1106(NDIR0,SPD0)
  66.         SPD1= Extension_8_1366((OXSP1*OXSP1+OYSP1*OYSP1)/16+((OXSP0*OXSP0+OYSP0*OYSP0)*9)/16)
  67.         NDIR1= Extension_8_16C2(OXSP1+OXSP0*3,OYSP1+OYSP0*3)
  68.         XSP(1)= Extension_8_1114(NDIR1,SPD1)
  69.         YSP(1)= Extension_8_1106(NDIR1,SPD1)
  70. '        XSP(0)=(-OXSP0/4)+(OXSP1*3)/4 : YSP(0)=(-OYSP0/4)+(OYSP1*3)/4 
  71. '        XSP(1)=(-OXSP1/4)+(OXSP0*3)/4 : YSP(1)=(-OYSP1/4)+(OYSP0*3)/4 
  72.       End If 
  73.     Next 
  74.     If CRASH Then Dec TIMOUT
  75.   Until TIMOUT=0
  76. Return